﻿Public Class frmTabConsistencyCompleteness
    Dim editNode As EditXML = New EditXML()

    Private Sub txtLogic_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtLogic.Leave
        editXMLFile()
    End Sub

    Private Sub txtComplete_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtComplete.Leave
        editXMLFile()
    End Sub

    Public Sub editXMLFile()
        editNode.Edit("/metadata/dataqual/logic", txtLogic.Text.Trim())
        editNode.Edit("/metadata/dataqual/complete", txtComplete.Text.Trim())
    End Sub

    Private Sub button_example_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button_example.Click
        Dim helpForm As dialog_help = New dialog_help("ConsistencyCompleteness")
        helpForm.ShowDialog()
    End Sub
End Class